tests/TESTS WITH WRONG LIKELIHOOD/convergence_comp/convcomp_stats_batch.R

library(batch)
k=j=0
for (popsize in c(25, 50, 100, 250, 500, 1000, 2500, 5000, 10000)) {
    for (censusInterval in c(0.2)) {
        for (samp_prob in c(0.05, 0.2)) {
            for (resample_prop in c(1)) {
                for (initialization_num in c(1, 2, 3)) {
                    k = k+1; j = j+1
                    rbatch("./convcomp_augSIR.R", seed = k, popsize = popsize, censusInterval = censusInterval, samp_prob = samp_prob, resample_prop = resample_prop, initialization_num = initialization_num)
                    rbatch("./convcomp_rjmcmc.R", seed = j, popsize = popsize, censusInterval = censusInterval, samp_prob = samp_prob, resample_prop = resample_prop, initialization_num = initialization_num)
                }
            }
        }
    }
}

# rbatch("./convcomp_cluster_code.R", seed = 1, popsize = 25, censusInterval = 0.2, samp_prob = 0.5, resample_prop = 1, initialization_num = 1)
# rbatch("./convcomp_rjmcmc_statsclust.R", seed = 2, popsize = 25, censusInterval = 0.2, samp_prob = 0.5, resample_prop = 1, initialization_num = 1)
fintzij/augSIR documentation built on May 16, 2019, 12:57 p.m.